Chip 1996 December/CHIP Aralık 1996.iso/prog/backpack/demodata/dep_dir/shared.dxr/00905_MapHierc.ls

Text File | 1995-08-30 | 12.9 KB | 203 lines

on MapHierc K
  if K = 1 then
    set b to list(14, 15, 16)
  else
    if K = 2 then
      set b to list(14, 15, 11, 16)
    else
      if K = 3 then
        set b to list(14, 13, 15, 17, 16)
      else
        if K = 4 then
          set b to list(14, 13, 15, 17, 16)
        else
          if K = 5 then
            set b to list(14, 11, 15, 16)
          else
            if K = 6 then
              set b to list(14, 11, 15, 17, 16)
            else
              if K = 7 then
                set b to list(14, 13, 11, 12, 15, 17, 16)
              else
                if K = 8 then
                  set b to list(14, 13, 17, 15, 16)
                else
                  if K = 9 then
                    set b to list(17, 16)
                  else
                    if K = 10 then
                      set b to list(13, 17, 15, 16)
                    else
                      if K = 11 then
                        set b to list(13, 12, 17, 15, 16)
                      else
                        if K = 12 then
                          set b to list(12, 17, 15, 16)
                        else
                          if K = 13 then
                            set b to list(12, 17, 15, 16)
                          else
                            if K = 14 then
                              set b to list(13, 12, 17, 15, 16)
                            else
                              if K = 15 then
                                set b to list(9, 10, 20, 16)
                              else
                                if K = 16 then
                                  set b to list(9, 10, 20, 16)
                                else
                                  if K = 17 then
                                    set b to list(9, 10, 17, 16)
                                  else
                                    if K = 18 then
                                      set b to list(8, 9, 7, 10, 20)
                                    else
                                      if K = 19 then
                                        set b to list(3, 5, 19, 6, 11, 15, 20)
                                      else
                                        if K = 20 then
                                          set b to list(4, 5, 19, 7, 15, 20)
                                        else
                                          if K = 21 then
                                            set b to list(5, 6, 12, 15, 20)
                                          else
                                            if K = 22 then
                                              set b to list(19, 15, 20)
                                            else
                                              if K = 23 then
                                                set b to list(4, 6, 19, 7, 20)
                                              else
                                                if K = 24 then
                                                  set b to list(5, 19, 6, 7, 20)
                                                else
                                                  if K = 25 then
                                                    set b to list(18, 2, 1, 3, 6, 11, 15, 20)
                                                  else
                                                    if K = 26 then
                                                      set b to list(18, 2, 1, 3, 6, 11, 15, 20)
                                                    else
                                                      if K = 27 then
                                                        set b to list(2, 1, 3, 6, 11, 15)
                                                      else
                                                        if K = 28 then
                                                          set b to list(2, 3, 6, 11)
                                                        else
                                                          if K = 29 then
                                                            set b to list(2, 1, 3, 6, 11, 15)
                                                          else
                                                            if K = 30 then
                                                              set b to list(3, 6, 20)
                                                            else
                                                              if K = 31 then
                                                                set b to list(2, 6, 11)
                                                              else
                                                                if K = 32 then
                                                                  set b to list(18, 2, 1, 3, 6, 11, 15)
                                                                else
                                                                  if K = 33 then
                                                                    set b to list(18, 2, 1, 3, 6, 20)
                                                                  else
                                                                    if K = 34 then
                                                                      set b to list(3, 6, 20)
                                                                    else
                                                                      if K = 35 then
                                                                        set b to list(18, 1, 3, 5, 11, 19, 6)
                                                                      else
                                                                        if K = 36 then
                                                                          set b to list(18, 1, 3, 5, 11, 19, 6, 15, 20)
                                                                        else
                                                                          if K = 37 then
                                                                            set b to list(1, 3, 5, 11, 19, 6, 15)
                                                                          else
                                                                            if K = 38 then
                                                                              set b to list(18, 1, 3, 4, 5, 19, 6)
                                                                            else
                                                                              if K = 39 then
                                                                                set b to list(18, 2, 1, 3, 6, 11, 15)
                                                                              else
                                                                                if K = 40 then
                                                                                  set b to list(18, 2, 1, 3, 20, 6)
                                                                                else
                                                                                  if K = 41 then
                                                                                    set b to list(4, 7, 6, 20)
                                                                                  else
                                                                                    if K = 42 then
                                                                                      set b to list(18, 1, 3, 4, 5, 7, 19, 6)
                                                                                    else
                                                                                      if K = 43 then
                                                                                        set b to list(3, 4, 5, 7, 19, 6, 20)
                                                                                      else
                                                                                        if K = 44 then
                                                                                          set b to list(7, 19, 20)
                                                                                        else
                                                                                          if K = 45 then
                                                                                            set b to list(9, 7, 10, 20, 16)
                                                                                          else
                                                                                            if K = 46 then
                                                                                              set b to list(4, 8, 7, 6, 10, 20)
                                                                                            else
                                                                                              if K = 47 then
                                                                                                set b to list(8, 7, 10, 16, 20)
                                                                                              else
                                                                                                if K = 48 then
                                                                                                  set b to list(8, 7, 10, 16, 20)
                                                                                                else
                                                                                                  if K = 49 then
                                                                                                    set b to list(8, 7, 10, 20)
                                                                                                  else
                                                                                                    if K = 50 then
                                                                                                      set b to list(8, 7, 10, 20, 16)
                                                                                                    end if
                                                                                                  end if
                                                                                                end if
                                                                                              end if
                                                                                            end if
                                                                                          end if
                                                                                        end if
                                                                                      end if
                                                                                    end if
                                                                                  end if
                                                                                end if
                                                                              end if
                                                                            end if
                                                                          end if
                                                                        end if
                                                                      end if
                                                                    end if
                                                                  end if
                                                                end if
                                                              end if
                                                            end if
                                                          end if
                                                        end if
                                                      end if
                                                    end if
                                                  end if
                                                end if
                                              end if
                                            end if
                                          end if
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  return b
end